home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / SYS_TOOL / BBSYSINF / BBSYSINF.ZIP / BBREGIS.PAS < prev    next >
Pascal/Delphi Source File  |  1996-04-02  |  403b  |  24 lines
  1. unit BBRegis;
  2.  
  3. interface
  4.  
  5. uses Windows, Classes, SysUtils, Registry;
  6.  
  7. type
  8.    TBBRegIniFile = class(TRegIniFile)
  9.    public
  10.       constructor Create(const FileName: string; StartKey: HKEY);
  11.    end;
  12.  
  13.  
  14. implementation
  15.  
  16. constructor TBBRegIniFile.Create(const FileName: string; StartKey: HKEY);
  17. begin
  18.    RootKey := StartKey;
  19.    LazyWrite := True;
  20.    OpenKey(FileName, True);
  21. end;
  22.  
  23. end.
  24.